0 REM PROFESSIONAL MENU CONTROL DEMO    ----  (C) 1986 BY FRIDTJOF SIEBERT  ----
10 IFL=0THENL=1:LOAD"PRO MENU CONTROL",8,1:REM LADEN
20 POKE53280,4:POKE53281,15:REM FARBEN
30 SYS 52113:REM MENU CONTROL INITIALISIEREN
40 .R,0,0,310,190:REM RAHMEN SETZTEN (GANZER BILDSCHIRM)
99 REM -----  BILDSCHIRMAUFBAU  --------
100 PRINT"[144][147][207][183][183][183][183][183][183][183][183][208][207][183][183][183][183][183][183][183][183][208][207][183][183][183][183][183][183][183][183][208][207][183][183][183][183][183][183][183][183][208]";
110 PRINT"[165] CURSOR [167][165] PAPER  [167][165] BORDER [167][165] SPRITE [167]";
120 PRINT"[204][175][175][175][175][175][175][175][175][186][204][175][175][175][175][175][175][175][175][186][204][175][175][175][175][175][175][175][175][186][204][175][175][175][175][175][175][175][175][186]";
130 FORI=0TO7:POKE646,I:PRINT"     [157][157][157][157][157]     [157][157][157][157][157]     [145][145]";:NEXT:PRINT"";
140 FORI=8TO15:POKE646,I:PRINT"     [157][157][157][157][157]     [157][157][157][157][157]     [145][145]";:NEXT
150 PRINTCHR$(13)TAB(35)"[144][207][183][183][208][157][157][157][157][165]OK[167][157][157][157][157][204][175][175][186]"
199 REM -----  PUNKTE SETZEN  ----------
200 .N,21:REM 21 PUNKTE
210 FORI=1TO4:.P,I,I*10-10,1,I*10-1,3,1#A:NEXT:REM OBERE LEISTE PUNKT 1-4
220 FORI=0TO7:.P,6+I,I*5,4,I*5+4,6,0:.P,14+I,I*5,7,I*5+4,9,0:NEXT:REMFARBEN6-21
230 .P,5,35,10,38,12,2:REM OK PUNKT 5
240 .A,1:A=1:REMPUNKT1 (CURSOR) ACTIVIEREN , VARIABLE A AUF 1 FUER ON ... GOSUB
250 .K,160,50:REM PFEIL POSITION
299 REM -----  START  ------------------
300 .S,10:REM PRO MENU CONTROL STARTEN , TEMPO 10
310 IFST=5THENEND:REM OK ANGETIPPT
320 IFST<5THENA=ST:GOTO300:OBERE LEISTE ANGETIPPT : NEUES A
330 ONAGOSUB1000,1100,1200,1300:GOTO300:REM FARBE ANGETIPPT : SETZEN
999 REM------- FARBEN AENDERN ----------
1000 POKE646,ST-6:PRINT"TEST[145]":RETURN:REM CURSORFARBE
1100 POKE53281,ST-6:RETURN:REM HINTERGRUND
1200 POKE53280,ST-6:RETURN:REM RAHMEN
1300 POKE53287,ST-6:RETURN:REM SPRITE